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sTYPE TLOC IN OCTAL 
oh TNTING. SEQUENCE 


tFSrer 
; TYPE ST OF eke OCTAL 
are FOR Printie secuence 


INITIALIZE PRINT REGISTER 


;WAIT FOR THE PRINTER TO FINISH 


;HALT 
3 CHECK FOR CONT-G 
: RETURN 


BiS #100, aTPS 
MOV ee PRINTL 
‘JSR * 
7s: TST ;MAIT FOR 
Hoy Hise “3 t INITIAL 
IR 
bes: TST 
BNE 
BY fe es 
es: et | 
BNE «63S 
HALT 
J 47, CKSWR 
RTI 
TT: RTL 
TMESi: .ASCII “++TRAP TO LOCATION 8” 
TMES2: .ASCII ” FROM 8” 
TMES3: .ASCII “ BY 8" 
CON:  :ASCII “+HIT CONTINUE TO PROCEDE+s” 
LSTERR: “.ASCII “*PUSH DOWN LIST OVERFLOW +8” 
HEAD:  .ASCII- “+ KE11 RANDOM EXERCISER +8" 
MAIN: .ASCII “+ MAINDEC-11-DZKEC-A +8" 
EAEOK: .ASCII “+ ERE OK +8" 
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TSTB ? 
3 #°8, (3) 
EMPTY 
I #100, aTPS 
R 
: yes #’e, (3) 
Q RET 
Ree #’? (3) 
Q .REST 
(3)+,aTPB 
RTI 
INC %3 
MOV %3,« 
MOV a Re 
BR -RET-6 
MOV .SAV,%3 
BR TYPE 
-BYTE 15,12,’! 
ite 












VIDEND RIGHT 


s TRAP ADDRESS 

; TRAP _LOCAT 

aoe ee 

seer MES IN SPECIFI*® LOOP 
3sMQ (MULTIPLY) 

is iste DIVIDEND LEFT 
: CULT PLY) V 

:AC (DIVIDE BY LONUM) 

ist (GUIDE By Leen 

SR (DIV LONUM) 

5 (BEE BY Aan 

ee ( ty bE By Hin 

; LOOP RODRESS 


SO eee 
: bHECK FOR T thavoR 


;CLEAR POINTER TO CHARACTER 


CRLF CHAR? 


;CHECK FOR RETURN TERMINATOR 


; TYPE CHARACTER 
;RETURN 


;SET UP NEW POINTER 
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TAL DUMP 5 
: ; AAAAAALALELSERSRALALALEALLAL ALES ESSA SAAS SLALALAAELAFSLESALESEE 


PRINTI: O 
PRINTe: . 


PRINTS: .BYTE 
PRINTR: MOVB 
PRINTS: 


PRNTCN 
PRINTL: 


PRINTF: 


ets: 





0,0,0,0 


0,0 


#1, PRINTS 
PRN 


BB 
(5) 
ip 
INT. 
os. 
#’0, (5)+ 
PRtit sel 
PRINT 
#PRINT2 


;RESTORE RS 


;SET ZERO FILL SWITCH 


Cue: ZERO’S 
: NTER TO FIRST ASCII CHAR. 


ae 
as Nt INTO C C 


Eaten INTO C 


:RO Bre BIT INTO C 
PACK T 


;CHECK FILL SWITCH 
;MAKE INTO ASCII CHAR 
; REPEAT 


;WAIT FOR oo be CRIT Te SECUENCE 
t inrTracice PRINT REGISTER 
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“emma TT TOOO Oo apmmamaarpnceanente sce nce emonuerge 


CONTAIN AC,MQ RESPECTIVELY 


’ 
; RO,R1 
WE tttiiii rtiiitiiitiiiiittttttriitittttttiiititttiiiiet titi ey 


2: -WORD QO 
cei: :HORD 


SINE: .WORD O 


DIVI: MOV al eel ;SET UP STEP COUNTER 


CLR 
LR INE 
TST ; 
BPL STEP! 
COMB SINE 
STEPI: ae s INITIALIZE Z INDICATORS 
Le .AC sCHECK REMAINDER SIGN 
BPL $ 
Con +1 
1S: ist %2 ;CHECK DIVISOR SIGN 
Con +1 
2s: rst +] ;-1 IF DIFFERENT, 0 IF SAME 
at 2 's zsh IF SAME 
;SET OA1 
3S: 19 ‘ROTATE AC AND MQ ONCE LEFT STEP2 
Rote 2 ;STEP3 


;SUBTRACT IF Z = 1 


BeoaeRa 


;ADD IF Z=0 
;CHECK FOR FIRST TIME THROUGH  STEPY 


48 

e 
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;IF C AND DIVIDEND ARE 


: DIFFERENT, AN OVERFLOW 
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1089 442 ? 177602 STEPS: COUNT 
10 ' . 4 
i pai 1 177630 EPI 
1083 005454 005700 18: TST ac ;BEGINNING OF CORRECTION ROUTINE 
1 1 IF THE RENBINDER S 
1 1 STEP1O: : SHIF THE ENT ONCE 
1 OL : ILLING WITH ” 
1 ib 177564 STP9:  MOVB 
1 ? TST 
i} G Oh 
ll 1$: T 
11 BMI 
il TST 
1] 1 BMI 
1105 ; 74 BR DONE 
il : TST MQ 
ll 0S! $ PLS NE 
it 0S! 1 177534 OF LW: rr, pe 
1110 Of 7? 000100 177522 I #100, SR1 
111 BR 
111 55 3c 000200 177512 15S: BIS #200, SR1 
111 000464 BR | 
lis 
111 010267 177502 STEPS: MOV %2, COUNT 
111g BMI (§ 
1118 177474 NEG COUNT sIF THE DIVISOR WAS (+) NEGATE IT 
111 7 177470 1S: CMP AC, COUNT IF THE AS REMAINDER, GO 
it 001416 BEQ STEP II : TO STEP 11 
11 7? 177461 RB s2+ 
11 ot ate ;COMPARE THE SIGNS OF THE 
li i BPL : REMAINDER AND THE 
11 1 177451 COMB +1 : DIVIDEND, IF THEY 
He 0s 105767 177452 2 ra NE : BRE TH SAME, GO TO 
11 { 167 177437 OMB +1 
1129 105767 177433 3$ TSTB Os 241, 
1130 001721 BE STEP1O 
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v4 






gSET 281 fe BYvisoR HAVE. THE 
SAME SIGN 


;ADD Z TO QUOTIENT 


a QUOTIENT LEFT ONCE 
FILLING WITH “0” 


;SUBTRACT DIVISOR FROM REMAINDER 
;ADD DIVISOR TO REMAINDER 


;TEST FOR AC=0 
; TEST FOR MQ=0 


;SET BIT é IF AC=M@=0 
3 5 SR ae AC=0 


;SET BIT 3 IF MQ=0 
;GET SIGN OF MQ 
; TEST FOR SINGLE PRECISION 


pSET SITBRECTSION REGATIVE NUMBER 


;SET BIT } iF SINGLE PRECISION 
: POSITI 


NUMBER 
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1173 : MULTIPLY SUBROUTINE 
He 
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118s 
11 a 
118% gpsoz2 9000 CONT: .WORD 0 
1196 006030 MULI: CLR ONE 
He eee Bk 
Lig 006046 eh “MQ 
1195 1 BPL i$ 
119% 005 177750 COM CHEK 
1188 mo ee 
1199 167 177740 COM CHEK 
1200 ? 177760 177726 2% MOV #-16. .CONT 
iS : 1 100000 CMP #10 , «MQ 
1 bob ibe ae a fst ke 
i Od pe 
i Goel Nl=i>>> = s@ 20 eat , Fe i AC 
. - ay r- @ 
1 11 . Stiarcy . EL [MQ 
1209 00611 ™ oh ST ROR Lae 
te : ROR = NG 
ite 1 100000 ~_CNXTF,, ey #1 he 
i Bet OES SP 
121 Bet f BPL STEP2 
lel 0061 MOV MG, . AC 
t i bbe 3 te - 
1213 Oo \CLR. MO 
i5 Boat 1 4s STEP2 er | ee ak? 
1854 Soeieo 138767 Go00dl 17636 aie. 281, ONE 
Wye aA i ae 
i yh ale A he 4 >» + i 
en & NA \ —— had <8 * . 


;CLEAR Z STEP1 


;CLEAR AC 


; INITIALIZE COUNT 
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Pon +] ;COMP ONE+1 IF Z=1 
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Q STEPY , GO TOS 







AC ;ADD MULTIPLICAND IF MQ IS EVEN 
«AC ;SUBTRACT MULTIPLICAND IF MQ IS ODD 


;G0 TO STEP2 IF NOT 16TH PASS 
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} ry SES YES, WALT OR 

i ;REAOY, GET TER 

lee 1777 MOV T tr 

| A PR 

: : 1 67,7 ;IS IT A <t@ 

1 64S: rst a ;WAIT FOR PRINT SEQUENCE 

128 SCNT t INITIALISE INT REGISTER 

FE mew BS HT 

i 64S: Ist 3. ;WAIT FOR R OLD PRINTING SEQUENCE 

le . "MOV wSIISUR, 12 t INITIALIZE PRINT te EO er 
71S ers #100, 

i “ ee a chan 

tes ess: 131 a ;WAL NG SEQUENCE 

MOV aSINEW 73 entra toe PRINT REGISTER 

i 171546 BIS 8100, 

i TEMPST 

1 SREAD: CLR T 

i sceges 1S: mer x" A A TER 

1 17714 ¢ o° ,TIB STRIP 

1 1 roehe 25, : iF A tu? 

1 : IF_NOT 

1308 3s: Br cvTLu ;START OVER 

1305 177574 2S: 815, TI8 SIS ITA chs 

: 19 BNE :BRANCH IF 

: ip Abe: 64S: ~ Ist Se — sHAIT FOR. come SEQUENCE 

1314 MOV 3 tINITIALISE NT oFSreR 

121 174450 I a] atPs 

131 1 87, CONTT © sWOS 22-£ RST CHARAC 

131 5 :C SUR TF NOT FIRST ONE 

131 gs: OUT :GET OUT 
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BG $ 
chee #67, TIB 
6 t 
S$: a, - = 
6S$: Ist “Bs sWAIT FOR PRINT ton 
V r T,%3 t INITIALE i iat ISTER 
ays noo sTbe 
cs ;START OVER IF NOT LEGAL CHARACTER 
6$: ASL T 
ASL i 
#60, ig :GET NITTY-GRITTY 
T T 
c ONtTT ;ONLY WANT & DIGITS 
3 
78: ey T, aSWR ;CHANGE SWITCH REGISTER CONTENTS 
OuT: TS ;RETURN TO PROGRAM 
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TTINe: Bye THe 
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